home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / unix / amwn222r.lha / Install_AmiWinUpd next >
Text File  |  1995-12-05  |  16KB  |  505 lines
  1. (procedure check-one-file-one-version
  2.  (set fpath (tackon @default-dest fname))
  3.  (if (exists fpath) (
  4.   (set amiwin-version (getversion fpath))
  5.   (if (not(= amiwin-version fversion))
  6.    (abort (cat "Your file " fname " does not have the correct version\n"));
  7.   )
  8.  ))
  9. ) 
  10.  
  11. (procedure check-one-file-two-versions
  12.  (set fpath (tackon @default-dest fname))
  13.  (if (exists fpath) (
  14.   (set amiwin-version (getversion fpath))
  15.   (if (not(= amiwin-version fversion))
  16.    (if (not(= amiwin-version fversion2))
  17.     (abort (cat "Your file " fname " does not have the correct version\n"));
  18.    )
  19.   )
  20.  ))
  21. ) 
  22.  
  23. (procedure check-one-file-three-versions
  24.  (set fpath (tackon @default-dest fname))
  25.  (if (exists fpath) (
  26.   (set amiwin-version (getversion fpath))
  27.   (if (not(= amiwin-version fversion))
  28.    (if (not(= amiwin-version fversion2))
  29.     (if (not(= amiwin-version fversion3))
  30.      (abort (cat "Your file " fname " does not have the correct version\n"));
  31.     )
  32.    )
  33.   )
  34.  ))
  35. ) 
  36.  
  37. (procedure check-one-file-size
  38.  (set fpath (tackon @default-dest fname))
  39.  (if (exists fpath) (
  40.   (if (not (= (getsize fpath) fsize))
  41.    (abort (cat "Your file " fname " does not have the correct version\n"));
  42.   )
  43.  ))
  44. ) 
  45.  
  46. (procedure check-amiwin-version
  47.  (set amiwin-version (getversion (tackon @default-dest "bin/AmiWin")))
  48.  (if (not(= amiwin-version 131084))
  49.   (if (not(= amiwin-version 131086))
  50.    (if (not(= amiwin-version 131088))
  51.     (abort "You do not have AmiWin 2.12r, 2.14r or 2.16r installed.\n")
  52.    )
  53.   )
  54.  )
  55.  (complete 1)
  56.  (working)
  57.  (set n 0)
  58.  (while (set fname (select n
  59.   "xse/multibuf.xse" "xse/sync.xse" "xle/mitmisc.xle" "xle/multibuf.xle"
  60.   "xle/shape.xle" "xle/sync.xle" "xtp/amitcp.xtp" "xtp/as225.xtp"
  61.   "libs/xau.library" "libs/xice.library" "libs/xmu1.library"
  62.   "libs/xsm.library" "libs/xtrans.library" "bin/appres" "bin/atobm"
  63.   "bin/bdftopcf" "bin/Bitmap" "bin/bmtoa" "bin/dclock" "bin/ico"
  64.   "bin/maze" "bin/oclock" "bin/x11perf" "bin/xauth" "bin/xbench"
  65.   "bin/xclock" "bin/xdpyinfo" "bin/xeyes" "bin/xfd"
  66.   "bin/xhost" "bin/xkill" "bin/xload" "bin/xlogo" "bin/xlsatoms"
  67.   "bin/xlsclients" "bin/xlsfonts" "bin/xmodmap" "bin/xpmroot"
  68.   "bin/xprop" "bin/xrefresh" "bin/xrubik" "bin/xset" "bin/xsetroot"
  69.   "bin/xwd" "bin/xwininfo" "bin/xwud" "")) (
  70.   (set fversion (select n
  71.    131084 131084 131072 131072 131072 131072 131072 131072
  72.    131072 131083 131083 131072 131083 131084 131084 131084
  73.    131084 131084 131084 131084 131084 131072 131084 131072
  74.    131084 131072 131084 131084 131084 131084 131084 
  75.    131084 131084 131084 131072 131084 131084 131084 131084 
  76.    131084 131084 131084 131084 131084 131084 131084 ))
  77.   (check-one-file-one-version)
  78.   (set n (+ n 1))
  79.  ))
  80.  (complete 2)
  81.  (working)
  82.  (set n 0)
  83.  (while (set fname (select n
  84.   "xsd/aga-1.xsd" "xsd/aga-8.xsd" "xsd/rtg-1.xsd" "libs/xaw.library"
  85.   "libs/xaw3d.library" "libs/xlib.library" "libs/xmu2.library"
  86.   "libs/xpm.library" "bin/mkfontdir" "bin/twm"
  87.   "bin/xcalc" "bin/xdaliclock" "")) (
  88.   (set fversion (select n
  89.    131084 131084 131084 131083 131084 131083 131083 131084
  90.    131072 131072 131083 131084 ))
  91.   (set fversion2 (select n
  92.    131086 131086 131086 131088 131088 131086 131086 131088
  93.    131088 131086 131088 131088 ))
  94.   (check-one-file-two-versions)
  95.   (set n (+ n 1))
  96.  ))
  97.  (complete 3)
  98.  (working)
  99.  (set n 0)
  100.  (while (set fname (select n
  101.   "libs/xfont.library" "libs/xt.library" "")) (
  102.   (set fversion (select n
  103.    131084 131083))
  104.   (set fversion2 (select n
  105.    131086 131086))
  106.   (set fversion3 (select n
  107.    131088 131088))
  108.   (check-one-file-three-versions)
  109.   (set n (+ n 1))
  110.  ))
  111.  (complete 4)
  112.  (working)
  113.  (set n 0)
  114.  (while (set fname (select n
  115.   "lib/x11/fvwm/FvwmAudio" "lib/x11/fvwm/FvwmAuto" "lib/x11/fvwm/FvwmBack"
  116.   "lib/x11/fvwm/FvwmBanner" "lib/x11/fvwm/FvwmClean" "lib/x11/fvwm/FvwmDebug" 
  117.   "lib/x11/fvwm/FvwmIconBox" "lib/x11/fvwm/FvwmIdent" "lib/x11/fvwm/FvwmPager" 
  118.   "lib/x11/fvwm/FvwmScroll" "lib/x11/fvwm/FvwmWinList" "lib/x11/fvwm/GoodStuff" 
  119.   "")) (
  120.   (set fsize (select n
  121.    16324 11760 16084 85864 18384 15132 40576 21464 37424 27084
  122.    24048 30044 ))
  123.   (check-one-file-size)
  124.   (set n (+ n 1))
  125.  ))
  126. )
  127.  
  128. (procedure select-destination-directory
  129.  (set @default-dest
  130.   (askdir
  131.    (prompt "Select the directory where you have "
  132.     "installed AmiWin 2.12 reg, 2.14 reg or 2.16 reg. The default is "
  133.     "probably correct.")
  134.    (help "Please specify the directory where you have "
  135.     "installed AmiWin 2.12 reg, 2.14 reg or 2.16 reg. The default is "
  136.     "the X11: directory, i.e. the likely place of "
  137.     "your AmiWin installation.")
  138.    (default "X11:")
  139.   )
  140.  )
  141. )  
  142.  
  143. (procedure patchonefile
  144.  (copyfiles
  145.   (source (tackon srcdir srcfile))
  146.   (dest "T:")
  147.   (newname "oldfile")
  148.  )
  149.  
  150.  (working)
  151.  (run (cat "\"" (tackon source-dir "bin/spatch") "\" -oT:newfile \"-p" pchfile "\" T:oldfile"))
  152.  
  153.  (copyfiles
  154.   (source "T:newfile")
  155.   (dest srcdir)
  156.   (newname srcfile)
  157.  )
  158.  
  159.  (delete "T:oldfile")
  160.  (delete "T:newfile")
  161.  (working)
  162. )
  163.  
  164. (procedure delete-old-files
  165.  (working)
  166.  (set n 0)
  167.  (while (set fname (select n
  168.   "xsd/aga-1.xsd.000" "xsd/aga-1.xsd.030" "xsd/aga-8.xsd.000"
  169.   "xsd/aga-8.xsd.030" "xsd/cybergraphx-15.xsd.000"
  170.   "xsd/cybergraphx-15.xsd.030" "xsd/cybergraphx-8.xsd.000"
  171.   "xsd/cybergraphx-8.xsd.030" "xsd/hrg-15.xsd.000" "xsd/hrg-15.xsd.030"
  172.   "xsd/hrg-8.xsd.000" "xsd/hrg-8.xsd.030" "xsd/picasso-l-15.xsd.000"
  173.   "xsd/picasso-l-15.xsd.030" "xsd/picasso-l-8.xsd.000"
  174.   "xsd/picasso-l-8.xsd.030" "xsd/rtg-1.xsd.000" "xsd/rtg-1.xsd.030"
  175.   "xsd/cybergraphx-8.xsd" "xsd/cybergraphx-15.xsd"
  176.   "xsd/hrg-8.xsd" "xsd/hrg-15.xsd" "xsd/picasso-l-15.xsd"
  177.   "xsd/picasso-l-8.xsd" "bin/AmiWin" "bin/AmiWin.000" "bin/AmiWin.030"
  178.   "bin/editres" "bin/fvwm" "bin/xclipboard" "bin/xcutsel"
  179.   "bin/xearth" "bin/xearth.000" "bin/xearth.030" "bin/xmag"
  180.   "bin/xstdcmap" "man/xclock.man" "man/xdpyinfo.man" "man/oclock.man" 
  181.   "man/twm.man" "man/xauth.man" "man/xhost.man" "man/mkfontdir.man" 
  182.   "man/xcalc.man" "man/xwininfo.man" "man/xkill.man" "man/xsetroot.man" 
  183.   "man/xset.man" "man/xlsclients.man" "man/bdftopcf.man" "man/appres.man" 
  184.   "man/bitmap.man" "man/x11perf.man" "man/xfd.man" "man/xlogo.man" 
  185.   "man/xlsatoms.man" "man/xlsfonts.man" "man/xmodmap.man" "man/xprop.man" 
  186.   "man/xrefresh.man" "man/xwd.man" "man/xwud.man" "man/dclock.man" 
  187.   "man/fvwm.man" "man/GoodStuff.man" "man/FvwmBanner.man" "man/FvwmDebug.man" 
  188.   "man/FvwmClean.man" "man/FvwmIdent.man" "man/FvwmPager.man" "man/FvwmWinList.man" 
  189.   "man/FvwmScroll.man" "man/FvwmBacker.man" "man/FvwmAudio.man" "man/FvwmIconBox.man" 
  190.   "man/FvwmAuto.man" "man/xpmroot.man" "man/ico.man" "man/maze.man" "man/xdaliclock.man" 
  191.   "man/xeyes.man" "man/xload.man" "man/xrubik.man" "Help/AmiWin.guide"
  192.   "Help/AmiWin.dvi" "Help/AmiWin.ps" "bin/awdecrypt" "")) (
  193.    (if (exists (tackon @default-dest fname))
  194.     (delete (tackon @default-dest fname))
  195.    )
  196.    (set n (+ n 1))
  197.  ))
  198. )
  199.  
  200. (procedure patch-to-214
  201.  (working)
  202.  (set n 0)
  203.  (while (set srcfile (select n
  204.   "xfont.library" "xlib.library" "xmu2.library"
  205.   "xt.library" "twm" "")) (
  206.    (set reldir (select n
  207.     "libs" "libs" "libs" "libs" "bin"))
  208.    (set srcdir (tackon @default-dest reldir))
  209.    (set fversion (select n
  210.     131084 131083 131083 131083 131072))
  211.    (set fpath (tackon srcdir srcfile))
  212.    (if (exists fpath) (
  213.     (if (= fversion (getversion fpath)) (
  214.      (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  215.       "xfont.14pch" "xlib.14pch" "xmu2.14pch" "xt.14pch" "twm.14pch")
  216.      ))
  217.      (patchonefile)
  218.     ))
  219.    ))
  220.    (set n (+ n 1))
  221.  ))
  222.  
  223.  (complete 25)
  224.  (working)
  225.  (set n 0)
  226.  (while (set srcfile (select n
  227.   "aga-1.xsd" "aga-8.xsd" "rtg-1.xsd" "")) (
  228.    (set reldir "xsd")
  229.    (set srcdir (tackon @default-dest reldir))
  230.    (set fversion 131084)
  231.    (set fpath (tackon srcdir srcfile))
  232.    (if (exists fpath) (
  233.     (if (= fversion (getversion fpath)) (
  234.      (if (= (getsize fpath) (select n 86456 179460 120556))
  235.       (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  236.        "aga-1-000.14pch" "aga-8-000.14pch" "rtg-1-000.14pch" )
  237.       ))
  238.       (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  239.        "aga-1-030.14pch" "aga-8-030.14pch" "rtg-1-030.14pch" )
  240.       ))
  241.      )
  242.      (patchonefile)
  243.     ))
  244.    ))
  245.    (set n (+ n 1))
  246.  ))
  247. )
  248.    
  249. (procedure patch-to-216
  250.  (working)
  251.  (set n 0)
  252.  (while (set srcfile (select n
  253.   "xaw.library" "xaw3d.library" "xfont.library"
  254.   "xpm.library" "xt.library" "mkfontdir"
  255.   "xcalc" "xdaliclock" "")) (
  256.    (set reldir (select n
  257.     "libs" "libs" "libs" "libs" "libs" "bin" "bin" "bin"))
  258.    (set srcdir (tackon @default-dest reldir))
  259.    (set fversion (select n
  260.     131083 131084 131086 131084 131086 131072 131083 131084))
  261.    (set fpath (tackon srcdir srcfile))
  262.    (if (exists fpath) (
  263.     (if (= fversion (getversion fpath)) (
  264.      (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  265.       "xaw.16pch" "xaw3d.16pch" "xfont.16pch" "xpm.16pch" "xt.16pch"
  266.       "mkfontdir.16pch" "xcalc.16pch" "xdaliclock.16pch" )
  267.      ))
  268.      (patchonefile)
  269.     ))
  270.    ))
  271.    (set n (+ n 1))
  272.  ))
  273. )
  274.    
  275. (procedure patch-to-222
  276.  (working)
  277.  (set n 0)
  278.  (while (set srcfile (select n
  279.   "multibuf.xse" "sync.xse" "mitmisc.xle" "multibuf.xle" "shape.xle"
  280.   "sync.xle" "FvwmAudio" "FvwmAuto"
  281.   "FvwmBacker" "FvwmBanner" "FvwmClean" "FvwmDebug" "FvwmIconBox"
  282.   "FvwmIdent" "FvwmPager" "FvwmScroll" "FvwmWinList" "GoodStuff"
  283.   "amitcp.xtp" "as225.xtp" "xau.library" "xaw.library"
  284.   "xaw3d.library" "xfont.library" "xice.library" "xlib.library"
  285.   "xmu1.library" "xmu2.library" "xpm.library" "xt.library"
  286.   "xtrans.library" "xhost" "xkill" "xload" "xlogo" "xlsatoms"
  287.   "xlsclients" "xlsfonts" "xmodmap" "xpmroot" "xprop" "xrefresh"
  288.   "xrubik" "xset" "xsetroot" "xwd" "xwininfo" "xwud" "appres"
  289.   "atobm" "bdftopcf" "bitmap" "bmtoa" "dclock" "ico" "maze"
  290.   "mkfontdir" "oclock" "twm" "x11perf" "xauth" "xbench" "xcalc"
  291.   "xclock" "xdaliclock" "xdpyinfo" "xeyes" "xfd" "")) (
  292.    (set reldir (select n
  293.     "xse" "xse" "xle" "xle" "xle" "xle" "lib/x11/fvwm" 
  294.     "lib/x11/fvwm" "lib/x11/fvwm" "lib/x11/fvwm" "lib/x11/fvwm" 
  295.     "lib/x11/fvwm" "lib/x11/fvwm" "lib/x11/fvwm" "lib/x11/fvwm" 
  296.     "lib/x11/fvwm" "lib/x11/fvwm" "lib/x11/fvwm" "xtp" "xtp"
  297.     "libs" "libs" "libs" "libs" "libs" "libs" "libs" "libs" 
  298.     "libs" "libs" "libs" "bin" "bin" "bin" "bin" "bin" "bin" "bin" 
  299.     "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" 
  300.     "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" 
  301.     "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" "bin" ))
  302.    (set srcdir (tackon @default-dest reldir))
  303.    (set fpath (tackon srcdir srcfile))
  304.    (if (exists fpath) (
  305.     (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  306.      "multibuf.pch" "sync.pch" "mitmisc.pch" "multibuf.pch" "shape.pch"
  307.      "sync.pch" "FvwmAudio.pch" "FvwmAuto.pch"
  308.      "FvwmBacker.pch" "FvwmBanner.pch" "FvwmClean.pch" "FvwmDebug.pch" "FvwmIconBox.pch"
  309.      "FvwmIdent.pch" "FvwmPager.pch" "FvwmScroll.pch" "FvwmWinList.pch" "GoodStuff.pch"
  310.      "amitcp.pch" "as225.pch" "xau.pch" "xaw.pch"
  311.      "xaw3d.pch" "xfont.pch" "xice.pch" "xlib.pch"
  312.      "xmu1.pch" "xmu2.pch" "xpm.pch" "xt.pch"
  313.      "xtrans.pch" "xhost.pch" "xkill.pch" "xload.pch" "xlogo.pch" "xlsatoms.pch"
  314.      "xlsclients.pch" "xlsfonts.pch" "xmodmap.pch" "xpmroot.pch" "xprop.pch" "xrefresh.pch"
  315.      "xrubik.pch" "xset.pch" "xsetroot.pch" "xwd.pch" "xwininfo.pch" "xwud.pch" "appres.pch"
  316.      "atobm.pch" "bdftopcf.pch" "bitmap.pch" "bmtoa.pch" "dclock.pch" "ico.pch" "maze.pch"
  317.      "mkfontdir.pch" "oclock.pch" "twm.pch" "x11perf.pch" "xauth.pch" "xbench.pch" "xcalc.pch"
  318.      "xclock.pch" "xdaliclock.pch" "xdpyinfo.pch" "xeyes.pch" "xfd.pch")
  319.     ))
  320.     (patchonefile)
  321.    ))
  322.    (set n (+ n 1))
  323.  ))
  324.  
  325.  (complete 43)
  326.  (working)
  327.  (set n 0)
  328.  (while (set srcfile (select n
  329.   "aga-1.xsd" "aga-8.xsd" "rtg-1.xsd" "")) (
  330.    (set reldir "xsd")
  331.    (set srcdir (tackon @default-dest reldir))
  332.    (set fpath (tackon srcdir srcfile))
  333.    (if (exists fpath) (
  334.     (if (= (getsize fpath) (select n 87516 179180 120720))
  335.      (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  336.       "aga-1-000.pch" "aga-8-000.pch" "rtg-1-000.pch" )
  337.      ))
  338.      (set pchfile (tackon (tackon (tackon source-dir "x11") reldir) (select n
  339.       "aga-1-030.pch" "aga-8-030.pch" "rtg-1-030.pch" )
  340.      ))
  341.     )
  342.     (patchonefile)
  343.    ))
  344.    (set n (+ n 1))
  345.  ))
  346.  
  347.  (complete 46)
  348.  (copyfiles
  349.   (source (tackon source-dir "x11/xle/amiwinmisc.xle"))
  350.   (dest (tackon @default-dest "xle"))
  351.  )
  352.  (complete 47)
  353.  (copyfiles
  354.   (source (tackon source-dir "x11/xle/lbx.xle"))
  355.   (dest (tackon @default-dest "xle"))
  356.  )
  357.  (complete 48)
  358.  (copyfiles
  359.   (source (tackon source-dir "x11/Help"))
  360.   (dest (tackon @default-dest "Help"))
  361.   (all)
  362.  )
  363.  (complete 49)
  364.  (if (not (exists (tackon @default-dest "lib/x11/app-defaults/Editres")))
  365.   (copyfiles
  366.    (source (tackon source-dir "x11/lib/x11/app-defaults/Editres"))
  367.    (dest (tackon @default-dest "lib/x11/app-defaults"))
  368.   )
  369.  )
  370.  (if (not (exists (tackon @default-dest "lib/x11/app-defaults/XClipboard")))
  371.   (copyfiles
  372.    (source (tackon source-dir "x11/lib/x11/app-defaults/XClipboard"))
  373.    (dest (tackon @default-dest "lib/x11/app-defaults"))
  374.   )
  375.  )
  376.  (if (not (exists (tackon @default-dest "lib/x11/app-defaults/Xmag")))
  377.   (copyfiles
  378.    (source (tackon source-dir "x11/lib/x11/app-defaults/Xmag"))
  379.    (dest (tackon @default-dest "lib/x11/app-defaults"))
  380.   )
  381.  )
  382. )
  383.  
  384. (procedure install-common-files
  385.  (copyfiles
  386.   (source (tackon source-dir "bin/AWDecrypt"))
  387.   (dest (tackon @default-dest "bin"))
  388.  )
  389.  
  390.  (complete 55)
  391.  (working)
  392.  (if (exists (tackon source-dir "new_common.awea")) (
  393.   (run (cat "\"" (tackon @default-dest "bin/AWDecrypt") "\" \"" (tackon source-dir "new_common.awea") "\" \"" source-dir "\""))
  394.   (if (not (exists (tackon source-dir "new_common.zip")))
  395.    (abort "Unable to decrypt new_common.awea")
  396.   )
  397.   (delete (tackon source-dir "new_common.awea"))
  398.  ))
  399.  
  400.  (complete 60)
  401.  (run (cat "\"" (tackon source-dir "bin/unzip") "\" -o -qq \"" (tackon source-dir "new_common.zip") "\" -d \"" @default-dest "\""))
  402.  
  403.  (complete 70)
  404.  (run (cat "protect \"" (tackon @default-dest "man/#?.man") "\" -hpase"))
  405.  (run (cat "protect \"" (tackon @default-dest "man/#?.man") "\" +rwd"))
  406. ) 
  407.  
  408. (procedure install-000-files
  409.  (working)
  410.  (if (exists (tackon source-dir "new_000.awea")) (
  411.   (run (cat "\"" (tackon @default-dest "bin/AWDecrypt") "\" \"" (tackon source-dir "new_000.awea") "\" \"" source-dir "\""))
  412.   (if (not (exists (tackon source-dir "new_000.zip")))
  413.    (abort "Unable to decrypt new_000.awea")
  414.   )
  415.   (delete (tackon source-dir "new_000.awea"))
  416.  ))
  417.  
  418.  (complete 90)
  419.  (run (cat "\"" (tackon source-dir "bin/unzip") "\" -o -qq \"" (tackon source-dir "new_000.zip") "\" -d \"" @default-dest "\""))
  420. ) 
  421.  
  422. (procedure install-030-files
  423.  (working)
  424.  (if (exists (tackon source-dir "new_030.awea")) (
  425.   (run (cat "\"" (tackon @default-dest "bin/AWDecrypt") "\" \"" (tackon source-dir "new_030.awea") "\" \"" source-dir "\""))
  426.   (if (not (exists (tackon source-dir "new_030.zip")))
  427.    (abort "Unable to decrypt new_030.awea")
  428.   )
  429.   (delete (tackon source-dir "new_030.awea"))
  430.  ))
  431.  
  432.  (complete 90)
  433.  (run (cat "\"" (tackon source-dir "bin/unzip") "\" -o -qq \"" (tackon source-dir "new_030.zip") "\" -d \"" @default-dest "\""))
  434. ) 
  435.  
  436.    
  437. ;;;; Start
  438.  
  439. (set app-name "AmiWin 2.22reg")
  440.  
  441. (complete 0)
  442.  
  443. (run "avail flush")
  444.  
  445. (set source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon))
  446.  (expandpath @icon))
  447. )
  448.  
  449. (select-destination-directory)
  450.  
  451. (check-amiwin-version)
  452.  
  453. (complete 5)
  454.  
  455. (set proc-version
  456.  (select
  457.   (askchoice
  458.    (prompt "Please select for which CPU you want the AmiWin "
  459.     "update to be installed:")
  460.    (help "AmiWin can be installed in a version that can "
  461.     "be run on any cpu (->68000), or in a version that "
  462.     "requires a 68030 or higher and a 68881 or higher."
  463.    )
  464.    (choices "68000"
  465.     "68030/68881")
  466.    (default 0)
  467.   )
  468.   0 30881
  469.  )
  470. )
  471.  
  472. (complete 10)
  473.  
  474. (delete-old-files)
  475.  
  476. (complete 20)
  477.  
  478. (patch-to-214)
  479.  
  480. (complete 30)
  481.  
  482. (patch-to-216)
  483.  
  484. (complete 40)
  485.  
  486. (patch-to-222)
  487.  
  488. (complete 50)
  489.  
  490. (install-common-files)
  491.  
  492. (complete 80)
  493.  
  494. (if (= 0 proc-version)
  495.  (install-000-files)
  496.  (install-030-files)
  497. )
  498.  
  499. (run "avail flush")
  500.  
  501. (complete 100)
  502.  
  503. (exit "Installation of the update to "
  504.  "AmiWin 2.22 reg is finished.")
  505.